home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / role / utgv1.lha / UTGInstall next >
Text File  |  1993-07-29  |  4KB  |  174 lines
  1. ; UTG Installation Script
  2. ; The UTG Program, Music, Maps and Graphics are
  3. ; (C)Copyright 1993 Chris Hurley
  4. ; All Rights Reserved.
  5.  
  6.  
  7. (set name
  8.     (askdir
  9.         (prompt "Choose where to install UTG Drawer ")
  10.         (help @askdir-help)
  11.         (default "")
  12.     )
  13. )
  14.  
  15. (set @default-dest 
  16.     ( tackon name "UTG") 
  17. )
  18.  
  19. (makedir @default-dest
  20.     (infos)
  21. )
  22.  
  23. (message "Ready to Install the UTG Program:\n"
  24.      " UTG Main Program \n"
  25.      " Music, Maps, Font medplayer.library and reqtools.library.\n"
  26.      " You may wish to back-up your reqtools.library, and medplayer.library\n"
  27.      " to a safe place before running this installation.\n"
  28.      " the Fonts and Libs, will be installed on the \n"
  29.        " current SYSTEM drive.\n")
  30. (set error (trap 4 1
  31.     (copyfiles
  32.         (source "UTGPackage/fonts")
  33.         (dest "sys:fonts")
  34.         (all)
  35.     )
  36. )) (if (= error 4 ) 
  37.     (abort ("Dos Error %ld detected while copying the UTG font." @ioerr ))
  38.     (if (= error 1 ) 
  39.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  40.         )
  41.     )
  42. (set error (trap 4 1
  43.     (copylib
  44.         (source "UTGPackage/libs/reqtools.library")
  45.         (dest "sys:libs")
  46.         
  47.     )
  48. )) (if (= error 4 ) 
  49.     (abort ("Dos Error %ld detected while copying the reqtools library." @ioerr))
  50.     (if (= error 1 ) 
  51.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  52.         )
  53.  
  54.     )
  55. (set error (trap 4 1
  56.     (copylib
  57.         (source "UTGPackage/libs/medplayer.library")
  58.         (dest "sys:libs")
  59.         
  60.     )
  61. )) (if (= error 4 ) 
  62.     (abort ("Dos Error %ld detected while copying the medplayer library." @ioerr))
  63.     (if (= error 1 ) 
  64.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  65.         )
  66.  
  67.     )
  68. (set error (trap 4 1 
  69.     (copyfiles
  70.         (source "UTGPackage/UTG")
  71.         (dest @default-dest)
  72.         (infos)
  73.     )
  74. )) (if (= error 4 ) 
  75.     (abort ("Dos Error %ld detected while copying the UTG program." @ioerr))
  76.     (if (= error 1 ) 
  77.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  78.         )
  79.  
  80.     )
  81. (set error (trap 4 1 
  82.     (copyfiles
  83.         (source "UTGPackage/character")
  84.         (dest @default-dest)
  85.         (infos)
  86.     )
  87. )) (if (= error 4 ) 
  88.     (abort ("Dos Error %ld detected while copying the UTG characters." @ioerr))
  89.     (if (= error 1 ) 
  90.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  91.         )
  92.  
  93.     )
  94. (set error (trap 4 1 
  95.     (copyfiles
  96.         (source "UTGPackage/UTGLiterature")
  97.         (dest @default-dest)
  98.         (infos)
  99.     )
  100. )) (if (= error 4 ) 
  101.     (abort ("Dos Error %ld detected while copying the utg literature." @ioerr))
  102.     (if (= error 1 ) 
  103.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  104.         )
  105.  
  106.     )
  107.  
  108. (set error (trap 4 1 
  109.     (copyfiles
  110.         (source "UTGPackage/UTGmapIFF")
  111.         (dest @default-dest)
  112.         (infos)
  113.     )
  114. )) (if (= error 4 ) 
  115.     (abort ("Dos Error %ld detected while copying the UTG map." @ioerr))
  116.     (if (= error 1 ) 
  117.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  118.         )
  119.  
  120.     )
  121. ;***prepare to copy music
  122. (set draw-dest 
  123.     (tackon @default-dest "music")
  124. )
  125. (makedir draw-dest
  126.     (infos)
  127. )
  128.  
  129. (set error (trap 4 1 
  130.     (copyfiles
  131.         (source "UTGPackage/music")
  132.         (dest draw-dest)
  133.         (all)
  134.     )
  135. )) (if (= error 4 ) 
  136.     (abort ("Dos Error %ld detected while copying the UTG Music." @ioerr))
  137.     (if (= error 1 ) 
  138.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  139.         )
  140.  
  141.     )
  142. ;***prepare to copy maps
  143. (set draw-dest 
  144.     (tackon @default-dest "maps")
  145. )
  146. (makedir draw-dest
  147.     (infos)
  148. )
  149. (set error (trap 4 1 
  150.     (copyfiles
  151.         (source "UTGPackage/maps")
  152.         (dest draw-dest)
  153.         (all)
  154.     )
  155. )) (if (= error 4 ) 
  156.     (abort ("Dos Error %ld detected while copying the UTG Maps." @ioerr))
  157.     (if (= error 1 ) 
  158.         (abort ("The UTG Installation has Been aborted. Should you want to install it later, you may simply use the installer again."  ))
  159.         )
  160.  
  161.     )
  162.  
  163. (set stashlevel @user-level)
  164.  
  165. (set @user-level 1)
  166. (message "The UTG Program, Music, Maps and Graphics are \n"
  167.     "(C)Copyright 1993, Chris Hurley\n"
  168.     "All Rights Reserved.\n\n"
  169.     " Before Running UTG, Make sure that "
  170.     "you read and understand the discussion "
  171.     "about tooltypes in the UTGInstall Notes document.")
  172. (set @userlevel stashlevel)
  173.  
  174.